home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993…ch: Other People's Memory / ADC Developer CD (1993-03) (''Other People's Memory'')_iso / Dev.CD Mar 93.iso / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / AIIGSIncludes / m16.debug < prev    next >
Encoding:
Text File  |  1992-03-04  |  490 b   |  39 lines  |  [TEXT/MPS ]
  1. *
  2. * M16.Debug
  3. *
  4. * by Dave Lyons
  5. * December 2, 1990
  6. *
  7.     macro
  8. &lab    name
  9. &lab
  10.     if DebugSymbols<>0 then
  11.     brl @pastName
  12.     lclc &olds
  13. &olds    setc &setting('string')
  14.     string asis
  15.     dc.w $7771
  16.     dc.b &len(&lab),'&lab'
  17.     string &olds
  18. @pastName
  19.     endif
  20.     mend
  21.  
  22. * You can use procname instead of proc
  23.  
  24.     macro
  25. &lab    procname    &x
  26. &lab    proc    &x
  27.     if DebugSymbols<>0 then
  28.     brl @pastName
  29.     lclc &olds
  30. &olds    setc &setting('string')
  31.     string asis
  32.     dc.w $7771
  33.     dc.b &len(&lab),'&lab'
  34.     string &olds
  35. @pastName
  36.     endif
  37.     mend
  38.  
  39.